home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
15000000
/
15020000
/
15020000.dir
/
00017_Script_17
< prev
next >
Wrap
Text File
|
1995-11-09
|
1KB
|
41 lines
-- This is the first handler called at the start. It sets up all
-- the global variables as needed. It sets the counting of pages
-- to 1. It initialises the variables needed to calculate the
-- sliding page counter. It puppets the slider and counter.
on init
global firstPage, lastPage, numOfPages, theLeft, theRight
global targetPage, Slider, slideNum, pageRange
global textChannel, numberAlign, firstQDPage, lastQDPage
--freeBytesTest
--puppetSprite 47, true
--puppetSprite 48, true
set firstPage = 113
set lastPage = 113
set firstQDPage = 121
set lastQDPage = 121
set textChannel = 4
set Slider = 36
set slideNum = 37
set trackChannel = 35
set targetPage = 1
set the constraint of sprite Slider to trackChannel
set theLeft = the left of sprite trackChannel
set theRight = the right of sprite trackChannel
set numberAlign = the locH of sprite Slider ┬
- the locH of sprite slideNum
set pageRange = theRight - theLeft
set numOfPages = float( lastPage - firstPage ) -- total pages
put "1/"& ( lastPage - firstPage ) + 1 into field "Readout"
puppetSprite Slider , true
puppetSprite slideNum, true
setDisk
whereAmI
end init
-------------------------------------------------